home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Games / xjewel / vmsstubs.c < prev    next >
C/C++ Source or Header  |  1995-05-03  |  452b  |  27 lines
  1. #include <stdlib.h>
  2. struct timeval { long tv_sec; long tv_usec;};
  3.  
  4. void gettimeofday(z, q)
  5. struct timeval *z, *q;
  6.     {
  7.     unsigned long tod[2];
  8.     SYS$GETTIM(tod);
  9.  
  10.     z->tv_sec=( (tod[0]/10000000) + ((tod[1]* 429 )&0x7fffffffl) );
  11.     z->tv_usec=((tod[0]/10)%1000000);
  12. /*    printf("sec:%lx, u_sec:%lx\n", z->tv_sec, z->tv_usec);*/
  13.     }
  14.  
  15. long random()
  16.     {
  17.     return(rand());
  18.     }
  19.  
  20. void srandom(seed)
  21. long seed;
  22.     {
  23.     srand(seed);
  24.     }
  25.  
  26.  
  27.